home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Danish (DK-1.2.2) / Idestakke / Baggrundsideer / background_55552.txt < prev    next >
Text File  |  1988-12-19  |  9KB  |  420 lines
  1. -- background: 55552 from stack: in
  2. -- bmap block id: 37956
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on newStack
  8.   extend
  9. end newStack
  10.  
  11. on extend
  12.   -- type "udvid" into the message box and press return to make
  13.   -- three months worth of new cards.
  14.   if the name of this stack contains "Baggrundsindeer"
  15.   then
  16.   answer "Please make a new stack before extending it." with "OK"
  17. else
  18.   answer "Make three months more of new cards?" with "OK" or "Cancel"
  19.   if it is "Annuller" then exit extend
  20.   go to last card of this background
  21.   put getStartDate() into start      --what date to begin on
  22.   if start is "Annuller" then exit extend
  23.   put 60*60*24 into OneDay      --seconds in a day
  24.   repeat with cnt = 1 to (365 div 4)   --three months
  25.     put start into it        --a copy
  26.     convert it to long date
  27.     put it into field "Dato"
  28.     add OneDay to start
  29.     doMenu Nyt kort
  30.   end repeat
  31.   convert start to long date     --fix the last card
  32.   put start into field "Dato"
  33. end if
  34. end extend
  35.  
  36. function getStartDate
  37. -- end of stack or today, whichever is newer
  38. get field "Dato"
  39. if it is empty then put the short date into it
  40. convert it to seconds    --so we can compare
  41. put the short date into today
  42. convert today to seconds
  43. if today < 2587766400 then
  44.   answer "Set the Control Panel to today's date" with "OK"
  45.   return "Annuller"
  46. end if
  47. if it >= today then return it   --calendar already beyond today
  48. convert it to short date
  49. answer "Start from which date?" with it or the short date or "Annuller"
  50. if it is "Annuller" then return it
  51. convert it to seconds
  52. return it
  53. end getStartDate
  54.  
  55. on openBackground
  56.   push recent card
  57. end openBackground
  58.  
  59.  
  60. -- part 1 (button)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=349 top=35 right=58 bottom=377
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 10610 / 10610
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: dial phone
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   get the selection
  75.   if it is empty then get the message
  76.   if it is empty then ask "Ring til hvilket nummer?"
  77.   if it is not empty then
  78.     dial it
  79.   end if
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 2 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=381 top=35 right=58 bottom=413
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 3430 / 3430
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Adresse
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   get the selection
  99.   visual effect zoom open
  100.   go to "Adresse"
  101.   if it is not empty then find it
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 3 (button)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=453 top=35 right=58 bottom=483
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 15972 / 15972
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: gå til kalender
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   set lockscreen to true
  121.   go to "Kalender"
  122.   goWeekly the seconds
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 4 (button)
  128. -- low flags: 00
  129. -- high flags: 0000
  130. -- rect: left=415 top=35 right=65 bottom=449
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 4432 / 4432
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: gå til Opgaver
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   go to card "Opgaver1" of "Kalender"
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 5 (field)
  147. -- low flags: 00
  148. -- high flags: 0000
  149. -- rect: left=28 top=62 right=82 bottom=232
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 0
  153. -- font id: 2
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Dato
  158.  
  159.  
  160. -- part 6 (field)
  161. -- low flags: 00
  162. -- high flags: 4000
  163. -- rect: left=63 top=90 right=128 bottom=236
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 9
  169. -- style flags: 0
  170. -- line height: 12
  171. -- part name: 
  172.  
  173.  
  174. -- part 7 (field)
  175. -- low flags: 00
  176. -- high flags: 4000
  177. -- rect: left=63 top=126 right=164 bottom=236
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 0
  181. -- font id: 3
  182. -- text size: 9
  183. -- style flags: 0
  184. -- line height: 12
  185. -- part name: 
  186.  
  187.  
  188. -- part 8 (field)
  189. -- low flags: 00
  190. -- high flags: 4000
  191. -- rect: left=63 top=162 right=200 bottom=236
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 9
  197. -- style flags: 0
  198. -- line height: 12
  199. -- part name: 
  200.  
  201.  
  202. -- part 9 (field)
  203. -- low flags: 00
  204. -- high flags: 4000
  205. -- rect: left=63 top=198 right=236 bottom=236
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 0
  209. -- font id: 3
  210. -- text size: 9
  211. -- style flags: 0
  212. -- line height: 12
  213. -- part name: 
  214.  
  215.  
  216. -- part 10 (field)
  217. -- low flags: 00
  218. -- high flags: 4000
  219. -- rect: left=63 top=234 right=272 bottom=236
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 0
  223. -- font id: 3
  224. -- text size: 9
  225. -- style flags: 0
  226. -- line height: 12
  227. -- part name: 
  228.  
  229.  
  230. -- part 11 (field)
  231. -- low flags: 00
  232. -- high flags: 4000
  233. -- rect: left=63 top=270 right=308 bottom=236
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 0
  237. -- font id: 3
  238. -- text size: 9
  239. -- style flags: 0
  240. -- line height: 12
  241. -- part name: 
  242.  
  243.  
  244. -- part 12 (field)
  245. -- low flags: 00
  246. -- high flags: 4000
  247. -- rect: left=306 top=59 right=97 bottom=479
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 0
  251. -- font id: 3
  252. -- text size: 9
  253. -- style flags: 0
  254. -- line height: 12
  255. -- part name: 
  256.  
  257.  
  258. -- part 13 (field)
  259. -- low flags: 00
  260. -- high flags: 4000
  261. -- rect: left=306 top=95 right=133 bottom=479
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 0
  265. -- font id: 3
  266. -- text size: 9
  267. -- style flags: 0
  268. -- line height: 12
  269. -- part name: 
  270.  
  271.  
  272. -- part 14 (field)
  273. -- low flags: 00
  274. -- high flags: 4000
  275. -- rect: left=306 top=131 right=169 bottom=479
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 0
  279. -- font id: 3
  280. -- text size: 9
  281. -- style flags: 0
  282. -- line height: 12
  283. -- part name: 
  284.  
  285.  
  286. -- part 15 (field)
  287. -- low flags: 00
  288. -- high flags: 4000
  289. -- rect: left=306 top=167 right=205 bottom=479
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 0
  293. -- font id: 3
  294. -- text size: 9
  295. -- style flags: 0
  296. -- line height: 12
  297. -- part name: 
  298.  
  299.  
  300. -- part 16 (field)
  301. -- low flags: 00
  302. -- high flags: 4000
  303. -- rect: left=306 top=203 right=241 bottom=479
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 0
  307. -- font id: 3
  308. -- text size: 9
  309. -- style flags: 0
  310. -- line height: 12
  311. -- part name: 
  312.  
  313.  
  314. -- part 17 (field)
  315. -- low flags: 00
  316. -- high flags: 4000
  317. -- rect: left=306 top=239 right=277 bottom=479
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 0
  321. -- font id: 3
  322. -- text size: 9
  323. -- style flags: 0
  324. -- line height: 12
  325. -- part name: 
  326.  
  327.  
  328. -- part 18 (field)
  329. -- low flags: 00
  330. -- high flags: 4000
  331. -- rect: left=306 top=275 right=313 bottom=479
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 0
  335. -- font id: 3
  336. -- text size: 9
  337. -- style flags: 0
  338. -- line height: 12
  339. -- part name: 
  340.  
  341.  
  342. -- part 21 (button)
  343. -- low flags: 00
  344. -- high flags: 0000
  345. -- rect: left=209 top=304 right=329 bottom=236
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 1014 / 1014
  348. -- text alignment: 1
  349. -- font id: 0
  350. -- text size: 12
  351. -- style flags: 0
  352. -- line height: 16
  353. -- part name: Prev
  354. ----- HyperTalk script -----
  355. on mouseUp
  356.   visual effect wipe right
  357.   go to previous card
  358. end mouseUp
  359.  
  360.  
  361.  
  362. -- part 22 (button)
  363. -- low flags: 00
  364. -- high flags: 0000
  365. -- rect: left=276 top=303 right=329 bottom=303
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 1013 / 1013
  368. -- text alignment: 1
  369. -- font id: 0
  370. -- text size: 12
  371. -- style flags: 0
  372. -- line height: 16
  373. -- part name: Next
  374. ----- HyperTalk script -----
  375. on mouseUp
  376.   visual effect wipe left
  377.   go to next card
  378. end mouseUp
  379.  
  380.  
  381.  
  382. -- part 23 (button)
  383. -- low flags: 00
  384. -- high flags: 0000
  385. -- rect: left=449 top=303 right=331 bottom=486
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 1012 / 1012
  388. -- text alignment: 1
  389. -- font id: 0
  390. -- text size: 12
  391. -- style flags: 0
  392. -- line height: 16
  393. -- part name: Return
  394. ----- HyperTalk script -----
  395. on mouseUp
  396.   visual effect iris close
  397.   pop card
  398. end mouseUp
  399.  
  400.  
  401.  
  402. -- part 24 (button)
  403. -- low flags: 00
  404. -- high flags: 0000
  405. -- rect: left=315 top=32 right=61 bottom=347
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 21700 / 21700
  408. -- text alignment: 1
  409. -- font id: 0
  410. -- text size: 12
  411. -- style flags: 0
  412. -- line height: 16
  413. -- part name: Hjem
  414. ----- HyperTalk script -----
  415. on mouseUp
  416.   visual effect iris open
  417.   go Home
  418. end mouseUp
  419.  
  420.